function ByteToRealSize(Bytes:Int64):String;
var
Thousands: Int64;
begin
if (Bytes>1000000000) then
begin
Thousands := Bytes DIV 1000000;
Result := FloatToStr(Integer(Thousands)/1000) + 'Gb';
end
else if (Bytes>=1000000) then
begin
Thousands := Bytes DIV 1000;
Result := FloatToStr(Integer(Thousands) / 1000) + 'Mb';
end
else if (Bytes>=1000) then
begin
Result := FloatToStr(Integer(Bytes) / 1000) + 'Kb';
end
else
begin
Result := IntToStr(Bytes) + 'B';
end;
end;